Witam wszystkich serdecznie.
Mam problem z makrem w Outlooku 2007, które będzie mi ustawiać w polu "Od" przyporządkowany adres mailowy właściwy danemu folderowi. Wydaje mi się, że wszystko jest ok, ale niestety makro nie działa. Chodzi mi o to, żeby w przypadku wejściu w folder "Kuba" i wybraniu nowej wiadomości pojawiał się w niej automatyczny adres przypisany do tego foleru (w tym przypadku jest to kuba@outlook.pl) a nie ten domyślny, który podpowiada się za każdym razem przy tworzeniu nowej wiadomości.
Bardzo prosiłbym o pomoc.
Sub mailing() Private WithEvents oInspectors As Inspectors Private WithEvents oNewInspector As Inspector Private WithEvents oItem As MailItem Private g_bItemRead As Boolean Private g_settings Private Sub Application_Startup() Set oInspectors = Application.Inspectors ' Set g_settings = CreateObject("Scripting.Dictionary") g_settings.Add "AP Query", "ap.query@outlook.pl" g_settings.Add "Kuba", "kuba@outlook.pl" End Sub Private Sub oNewInspector_Activate() On Error Resume Next If g_bItemRead Then Exit Sub If oNewInspector.EditorType = olEditorWord Then Exit Sub Dim oMailItem As MailItem Dim oCurFolder As MAPIFolder Set oCurFolder = Application.ActiveExplorer.CurrentFolder Dim strFromAddr As String strFromAddr = g_settings.Item(oCurFolder.Name) If strFromAddr = "" Then Exit Sub Set oMailItem = oNewInspector.CurrentItem oMailItem.SentOnBehalfOfName = strFromAddr Dim cmdBars As CommandBars Dim cmdBar As CommandBar Dim oMenuItem As CommandBarControl Set cmdBars = oNewInspector.CommandBars Set cmdBar = cmdBars.Item("Menu Bar") Set oMenuItem = cmdBar.FindControl(, 1867, , , True) oMenuItem.Execute oMenuItem.Execute End Sub Private Sub oInspectors_NewInspector(ByVal oInspector As Inspector) On Error Resume Next Set oItem = oInspector.CurrentItem If Not oItem Is Nothing Then ' Set oNewInspector = oInspector g_bItemRead = False End If End Sub Private Sub oItem_Read() g_bItemRead = True End Sub Private Sub oNewInspector_Close() Set oItem = Nothing End Sub